### Clear space
rm(list = ls())

##########################
###### Make Figure 2 #####
##########################

gdp <- c(1,0.764705882,0.676470588,0.338235294,0.12745098,0.12745098,0.161764706,0.303921569,0.416666667,0.475490196,
         0.524509804,0.558823529,0.588235294,0.607843137,0.62745098,0.671568627,0.691176471,0.740196078,0.784313725,
         0.828431373,0.799019608,0.803921569,0.818627451,0.818627451)
years <- c("1989","1990","1991","1992","1993","1994","1995","1996","1997","1998","1999","2000",
           "2001","2002","2003","2004","2005","2006","2007","2008","2009","2010","2011","2012")

par(mar=c(5, 5, 1, 2), oma=c(0,0,0,0), cex.main=0.9, cex.axis=0.9, cex.lab=1)
plot(years, gdp,bty="n", type="b", axes=F,xlab=NA,ylab=NA,main="",pch=1, bty="n", col=ifelse(years=="1994", "black", "black"),lwd=1)
abline(v="1994",lty=3,col="#cccccc",lwd=2) 
points(years,gdp)
points(years,gdp,pch=ifelse(years=="1994", 19, 1), bty="n", col=ifelse(years=="1994", "red", "#666666"))
axis(1, tick=TRUE, at=years, labels=years, cex.axis=0.9, las=2) 
axis(2, tick=TRUE, cex.axis=0.9, las=1)
mtext(side = 1, "Year", line = 3)
mtext(side = 2, "GDP Change From 1989", line = 3)